*&---------------------------------------------------------------------*
*& Report  YDEMO_HANDLE_EVENTS_IN_FM_ALV
*&
*&---------------------------------------------------------------------*
 REPORT  ZSU_HANDLE_EVENTS_IN_FM_ALV.
TYPE-POOLS SLIS.

 DATA : IT_EKKO    TYPE TABLE OF EKKO,
        it_events  TYPE SLIS_T_EVENT,
        WA_EVENTS  TYPE LINE OF SLIS_T_EVENT.

 START-OF-SELECTION.
 SELECT * INTO TABLE IT_EKKO FROM EKKO UP TO 15 ROWS.

*Fill the Events TAB
CLEAR WA_EVENTS.
      WA_EVENTS-NAME = 'END_OF_LIST'.
      WA_EVENTS-FORM = 'PRINT_HEADER'.
APPEND WA_EVENTS TO IT_EVENTS.


 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
*    I_INTERFACE_CHECK                 = ' '
*    I_BYPASSING_BUFFER                = ' '
*    I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = sy-cprog
*    I_CALLBACK_PF_STATUS_SET          = ' '
*    I_CALLBACK_USER_COMMAND           = ' '
*    I_CALLBACK_TOP_OF_PAGE            = ' '
*    I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*    I_CALLBACK_HTML_END_OF_LIST       = ' '
    I_STRUCTURE_NAME                  = 'EKKO'
*    I_BACKGROUND_ID                   = ' '
*    I_GRID_TITLE                      =
*    I_GRID_SETTINGS                   =
*    IS_LAYOUT                         =
*    IT_FIELDCAT                       =
*    IT_EXCLUDING                      =
*    IT_SPECIAL_GROUPS                 =
*    IT_SORT                           =
*    IT_FILTER                         =
*    IS_SEL_HIDE                       =
*    I_DEFAULT                         = 'X'
*    I_SAVE                            = ' '
*    IS_VARIANT                        =
    IT_EVENTS                         = it_events
*    IT_EVENT_EXIT                     =
*    IS_PRINT                          =
*    IS_REPREP_ID                      =
*    I_SCREEN_START_COLUMN             = 0
*    I_SCREEN_START_LINE               = 0
*    I_SCREEN_END_COLUMN               = 0
*    I_SCREEN_END_LINE                 = 0
*    I_HTML_HEIGHT_TOP                 = 0
*    I_HTML_HEIGHT_END                 = 0
*    IT_ALV_GRAPHICS                   =
*    IT_HYPERLINK                      =
*    IT_ADD_FIELDCAT                   =
*    IT_EXCEPT_QINFO                   =
*    IR_SALV_FULLSCREEN_ADAPTER        =
*  IMPORTING
*    E_EXIT_CAUSED_BY_CALLER           =
*    ES_EXIT_CAUSED_BY_USER            =
   TABLES
     t_outtab                          = IT_EKKO
*  EXCEPTIONS
*    PROGRAM_ERROR                     = 1
*    OTHERS                            = 2
           .
 IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.



******FORM PRINT_HEADER
 FORM PRINT_HEADER.
 WRITE 'SSSSSSSSS'.
*DATA : IT_LIST TYPE SLIS_T_LISTHEADER,
*       WA_LIST TYPE LINE OF SLIS_T_LISTHEADER.
*
*CLEAR WA_LIST.
*      WA_LIST-TYP  = 'H'. "Header Font
*      WA_LIST-INFO = 'List Of Purchasing Docs'.
*APPEND WA_LIST TO IT_LIST.
*
*CLEAR WA_LIST.
*      WA_LIST-TYP  = 'A'. "Action Font
*      WA_LIST-INFO = 'List of gabbar singh Docs'.
*APPEND WA_LIST TO IT_LIST.
*
*CLEAR WA_LIST.
*      WA_LIST-TYP  = 'S'. "Selection Font
*      WA_LIST-INFO = 'List of purchasing Docs'.
*APPEND WA_LIST TO IT_LIST.
*
*  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
*    EXPORTING
*      it_list_commentary       = it_list
*      I_LOGO                   = 'SU1'
**     I_END_OF_LIST_GRID       =
**     I_ALV_FORM               =
*            .
*
*

 ENDFORM.